home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD012a.dsk / ROYAL ROMANCE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  25 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM  PROGRAM LENGTH=700
  3. 120  REM   <CTRL-M><CTRL-M>===================<CTRL-M>PAUL RAYMER<CTRL-M>BOX 42831<CTRL-M>LAS VEGAS NV 89116<CTRL-M>===================<CTRL-J> 
  4. 130  REM 
  5. 140  REM  PAUL RAYMER'S
  6. 150  REM  MYTHOLOGY
  7. 160  REM  TABLEAUX
  8. 170  REM 
  9. 180  REM  ROYAL ROMANCE 
  10. 190  REM  (C)1982 PEC<CTRL-J>
  11. 200  DIM Z$(11,2)
  12. 210  FOR X = 1 TO 11: FOR Y = 1 TO 2: READ Z$(X,Y): NEXT Y: NEXT X
  13. 220  PRINT "ROYAL ROMANCE...": FOR Z = 1 TO 2000: NEXT Z: HOME 
  14. 230  HTAB 1: PRINT "HUSBAND";: HTAB 12: PRINT "WIFE";: HTAB 24: PRINT "OFFSPRING"
  15. 240  HTAB 1: PRINT "=======";: HTAB 12: PRINT "====";: HTAB 24: PRINT "========="
  16. 250  SPEED= 98
  17. 260  FOR X = 1 TO 11
  18. 270  FOR Y = 1 TO 2
  19. 280  HTAB 1: PRINT "ZEUS";: HTAB (12 *Y): PRINT Z$(X,Y);
  20. 290  NEXT Y
  21. 300  PRINT : NEXT X
  22. 310  SPEED= 255
  23. 320  PRINT : PRINT "ETC.": VTAB 23: HTAB 1: FOR I = 1 TO 3000: NEXT : PRINT  CHR$(13); CHR$(4);"RUN MYTHMENU"
  24. 330  DATA HERA,HEBE,METIS,ATHENE,THEMIS,HORAE,MNEMOSYNE,MUSES,DEMETER,PERSEPHONE,EURYNOME,GRACES
  25. 340  DATA  LETO,APOLLO,MAIA,HERMES,NIOBE,ARGOS,DANAE,PERSEUS,SEMELE,DIONYSUS